Sub 2ykt8a()
'検索デ−タセット
    hiz = "00/1/7"  
    Cells(2, 5) = hiz
'抽出実行
    Range(Cells(1, 1), Cells(5, 2)).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("E1:E2"), _
    CopyToRange:=Range("E5:F6"), Unique:=False
End Sub

Sub 2ykt8b()
'検索デ−タセット
    hiz = "1/7/00" 
    hiz = CDate(hiz)
    Cells(2, 5) = hiz
'抽出実行
    Range(Cells(1, 1), Cells(5, 2)).AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("E1:E2"), _
    CopyToRange:=Range("E5:F6")
End Sub

Sub 2ykt9()
   kyo = DateValue(Now())
   Cells(1, 2) = kyo & "までの日数"
   For i = 2 To 6
     Cells(i, 2) = kyo - Cells(i, 1) & "日"
   Next
End Sub

表1.コントロールパネル"yy/MM/dd"	表2.コントロールパネル"MM/dd/yy"

Sub 2ykt10()
Dim ymd1 As Date
Dim ymd2 As Date
    ymd1 = #2000/01/11#
    ymd2 = #2000/01/12#
        Cells.Replace What:=ymd1, Replacement:=ymd2, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

Sub 2ykt11()
    Range("G6").Select
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R27C4", TableDestination:="R6C7", TableName:= _
        "ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4"
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").AddFields RowFields:="日付", _
        ColumnFields:="製品"
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("数量").Orientation _
        = xlDataField
End Sub

Sub y2kt12()
    Date = #2000/12/31#
    Time = #23:59:56#
    MsgBox "現在のシステム時計 " & Date & "  " & Time & Chr$(10) & _
           "(約５秒経ってから[OK]をクリックして下さい)"
    MsgBox "現在のシステム時計 " & Date & "  " & Time & Chr$(10) & _
           "(2001/01/01になっていればシステムは正常)"
End Sub

Sub y2kt13()
    Date = #99/09/08#
    Time = #23:59:56#
    MsgBox "現在のシステム時計 " & Date & "  " & Time & Chr$(10) & _
           "(約５秒経ってから[OK]をクリックして下さい)"
    MsgBox "現在のシステム時計 " & Date & "  " & Time & Chr$(10) & _
           "(1999/09/09になっていればシステムは正常)"
End Sub

Sub y2kt14a()
'コントロールパネル"yy/MM/dd"に設定で実行
    Cells(11, 1) = DateValue("01/01/00")  '2000/1/1 日の無い数字は"MM/dd/yy"と成る
    Cells(12, 1) = DateValue("01/01/01")  '2001/1/1
    Cells(13, 1) = DateValue("01/01/31")  '2001/1/31
    Cells(14, 1) = DateValue("01/01/32")  '2032/1/1 ★Excel2000は(1932/1/1)
    Cells(15, 1) = DateValue("02/01/01")  '2002/1/1
    Cells(16, 1) = DateValue("12/01/01")  '2012/1/1
    Cells(17, 1) = DateValue("29/01/01")  '2029/1/1
    Cells(18, 1) = DateValue("30/01/01")  '1930/1/1
    Cells(19, 1) = DateValue("99/01/01")  '1999/1/1
End Sub
Sub y2kt14b()
'コントロールパネル"MM/dd/yy"に設定で実行
    Cells(11, 1) = DateValue("01/01/00")  '1/1/2000
    Cells(12, 1) = DateValue("01/01/01")  '1/1/2001
    Cells(13, 1) = DateValue("01/01/31")  '1/1/1931
    Cells(14, 1) = DateValue("01/01/32")  '1/1/1932
    Cells(15, 1) = DateValue("02/01/01")  '2/1/2001
    Cells(16, 1) = DateValue("12/01/01")  '12/1/2001
    Cells(17, 1) = DateValue("20/01/01")  '1/1/2020  月の無い数字は"yy/MM/dd"と成る
    Cells(18, 1) = DateValue("21/01/01")  '1/1/2021　月の無い数字は"yy/MM/dd"と成る
End Sub

表1.マクロ実施前	表2.マクロ実施後

Sub y2kt15()
   kyom = Date
   Date = #2000/10/10#
   hiz = DateValue(Now())
  For i = 2 To 7
    If Cells(i, 2) - hiz < 0 Then
        Cells(i, 3) = DateValue(Cells(i, 2))
        Cells(i, 2) = ""
    End If
  Next
  Date = kyom
End Sub

Sub y2kt16()
Dim hiza As Date
 hiza = #1900/02/28#           '#1900/02/29#はエラーで入力不可（正常）
 hizb = CDate(60)              'このシリアル値は1900/3/1になって欲しい
 hizc = DateValue("1900/2/28") '("1900/2/29")は実行時エラー13（正常）
 
 Cells(10, 1) = hiza        'セルA10の表示"1900/2/29"
 Cells(11, 1) = hizb        'セルA10の表示"1900/2/29"
 Cells(12, 1) = hizc        'セルA10の表示"1900/2/29"
End Sub

Sub y2kt17()
    hiz = "2000/01/11"
    On Error Resume Next
    Range("B1:B8").Find(hiz, , , xlWhole, xlByColumns, xlNext, False).Activate
          If Err = 91 Then
              MsgBox hiz & "のDATAなし"
          Else
            ra = ActiveCell.Row
            Cells(2, 5) = Cells(ra, 1)
            Cells(2, 6) = DateValue(Cells(ra, 2))
            Cells(2, 7) = Cells(ra, 3)
          End If
End Sub

Sub y2kt17()
Dim hiz As Date
hiz = #2000/01/11#

テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル